assume cs:codesg
codesg segment
        mov ax, 0h
        mov ds, ax
        mov bx, 200h
        mov cx, 3fh
        
s:      mov ds:[bx], ax
        inc bx
        inc ax
        loop s
        mov ax, 4c00h
        int 21h
codesg ends
end
        